home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / COLLECTI.P < prev    next >
Text File  |  1990-09-13  |  3KB  |  114 lines
  1. temp <- <primitive 110 23 >
  2. <primitive 112 temp 1        " size " \
  3.     #( #[ 80 113 32 225 2 6 33 81 192 241 113 243 179 242 33 \
  4.  243 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " shallowCopy " \
  8.     #( #[ 5 48 160 113 32 225 2 5 33 34 11 22 243 179 242 \
  9.  32 33 191 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " select: " \
  13.     #( #[ 32 32 164 160 226 2 11 33 35 180 247 3 34 35 189 \
  14.  242 34 243 215 243 245] \
  15.     #(  ) ) >
  16.  
  17. <primitive 112 temp 4        " remove:ifAbsent: " \
  18.     #( #[ 32 33 11 30 247 6 32 33 11 39 248 3 242 34 165 \
  19.  243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 5        " remove: " \
  23.     #( #[ 32 33 224 4 32 48 188 244 216 242 33 243 245] \
  24.     #( 'attempt to remove object not found in collection'  ) ) >
  25.  
  26. <primitive 112 temp 6        " reject: " \
  27.     #( #[ 32 225 2 5 33 34 180 172 243 11 44 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 7        " printString " \
  31.     #( #[ 32 32 164 169 48 11 17 226 1 9 33 49 11 17 34 \
  32.  169 11 17 243 215 50 11 17 243 245] \
  33.     #( ' (' ' ' ' )'  ) ) >
  34.  
  35. <primitive 112 temp 8        " occurrencesOf: " \
  36.     #( #[ 32 80 226 2 13 35 33 201 247 5 34 81 192 248 2 \
  37.  242 34 243 215 243 245] \
  38.     #(  ) ) >
  39.  
  40. <primitive 112 temp 9        " isEmpty " \
  41.     #( #[ 32 163 80 201 243 245] \
  42.     #(  ) ) >
  43.  
  44. <primitive 112 temp 10        " inject:into: " \
  45.     #( #[ 33 115 32 225 4 7 34 35 36 211 241 115 243 179 242 \
  46.  35 243 245] \
  47.     #(  ) ) >
  48.  
  49. <primitive 112 temp 11        " includes: " \
  50.     #( #[ 32 225 2 8 34 33 181 247 2 91 244 243 179 242 92 \
  51.  243 245] \
  52.     #(  ) ) >
  53.  
  54. <primitive 112 temp 12        " first " \
  55.     #( #[ 32 48 188 243 245] \
  56.     #( 'subclass should implement first'  ) ) >
  57.  
  58. <primitive 112 temp 13        " detect:ifAbsent: " \
  59.     #( #[ 32 225 3 8 33 35 180 247 2 35 244 243 179 242 34 \
  60.  165 243 245] \
  61.     #(  ) ) >
  62.  
  63. <primitive 112 temp 14        " detect: " \
  64.     #( #[ 32 33 224 4 32 48 188 243 223 243 245] \
  65.     #( 'no object found matching detect'  ) ) >
  66.  
  67. <primitive 112 temp 15        " deepCopy " \
  68.     #( #[ 5 48 160 113 32 225 2 7 33 34 10 20 11 22 243 \
  69.  179 242 32 33 191 243 245] \
  70.     #(  ) ) >
  71.  
  72. <primitive 112 temp 16        " collect: " \
  73.     #( #[ 32 32 164 160 226 2 8 34 33 35 180 189 242 34 243 \
  74.  215 243 245] \
  75.     #(  ) ) >
  76.  
  77. <primitive 112 temp 17        " coerce: " \
  78.     #( #[ 32 164 160 114 33 225 3 4 34 35 189 243 179 242 34 \
  79.  243 245] \
  80.     #(  ) ) >
  81.  
  82. <primitive 112 temp 18        " asString " \
  83.     #( #[ 5 58 32 163 176 241 81 32 163 32 131 0 242 243 245 \
  84. ] \
  85.     #( #replaceFrom:to:with:  ) ) >
  86.  
  87. <primitive 112 temp 19        " asList " \
  88.     #( #[ 5 48 160 32 11 20 243 245] \
  89.     #(  ) ) >
  90.  
  91. <primitive 112 temp 20        " asSet " \
  92.     #( #[ 5 57 160 32 11 19 243 245] \
  93.     #(  ) ) >
  94.  
  95. <primitive 112 temp 21        " asBag " \
  96.     #( #[ 5 32 160 32 11 19 243 245] \
  97.     #(  ) ) >
  98.  
  99. <primitive 112 temp 22        " asArray " \
  100.     #( #[ 5 30 32 163 176 241 81 32 163 32 131 0 242 243 245 \
  101. ] \
  102.     #( #replaceFrom:to:with:  ) ) >
  103.  
  104. <primitive 112 temp 23        " addAll: " \
  105.     #( #[ 33 225 2 4 32 34 189 243 179 242 245] \
  106.     #(  ) ) >
  107.  
  108. <primitive 98 #Collection \
  109.     <primitive 97 #Collection #Object #\smalltlk\prelude\collecti.st \
  110.     #(  ) \
  111.     #( #size #shallowCopy #select: #remove:ifAbsent: #remove: #reject: #printString #occurrencesOf: #isEmpty #inject:into: #includes: #first #detect:ifAbsent: #detect: #deepCopy #collect: #coerce: #asString #asList #asSet #asBag #asArray #addAll:  ) \
  112.     temp 5 7 > >
  113.  
  114.